home *** CD-ROM | disk | FTP | other *** search
- /*
- * INIT to load and start the mac mail check driver
- * by Aaron Wohl (aw0g+@andrew.cmu.edu) jul 1990
- * Carnegie-Mellon University
- * Special Projects
- * Pittsburgh, PA 15213-3890
- * (412)-268-5032
- */
-
-
- void real_main(void);
-
- void main()
- {
- asm {
- move.l a4,-(sp)
- lea main,a4
- jsr real_main
- move.l (sp)+,a4
- }
- }
-
- #include "mmc_core.h"
- #include "mmc_drvr_find.h"
- #include "mmc_drvr_install.h"
- #include "mmc_prep.h"
- #include "string.h"
- #include "CShowINIT_PROC.h"
-
- #define cpanal_ICON (-4064)
- #define on_ICON (-4064)
-
- #define start_ICON (-4063)
- #define off_ICON (-4062)
- #define sick_ICON (-4061)
- #define finder_ICON (-4059)
-
- void tick(int refnum);
- void tick(int refnum)
- {
- mmc_io_record s;
- INIT_CPB(s,refnum,MMC_run);
- PBControl((void*)&s,FALSE);
- }
-
- LDEF(int mmc_start(void))
- {
- int err;
- mmc_state s;
- short refnum;
-
- if(Button())
- return off_ICON;
-
- if(mmc_read_prep(&s)!=0)
- mmc_invent_state(&s);
-
- #ifdef RUBBISH
- if(!FLSET(s,MCS_want_open))
- return off_ICON;
- #endif
-
-
- err=mmc_drvr_find_or_install(&refnum);
- if(err!=0)
- return sick_ICON;
-
- err=OpenDriver(MMC_name,&refnum);
- if(err!=0)
- return sick_ICON;
-
- err=mmc_set_drvr_state_sound_yes(refnum,&s,MMC_set_state);
- if(err!=0)
- return sick_ICON;
-
- tick(refnum);
- tick(refnum);
- tick(refnum);
- if((mmc_get_drvr_state(refnum,&s)<0))
- return sick_ICON;
-
- if(FLSET(s,MCS_error))
- return sick_ICON;
-
- if(!FLSET(s,MCS_want_open))
- return off_ICON;
-
- return on_ICON;
- }
-
- void real_main()
- {
- int final_icon;
- ShowINIT(start_ICON,0);
- final_icon=mmc_start();
- ShowINIT(final_icon,-1);
- }
-